del.asp 星梦奇缘交友网 1 - ASP源码程序

www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/del.asp

    <!-- #include file="config.asp" -->
<!-- #include file="style.asp" -->
<!-- #include file="admin_verify.asp" -->

<%
Response.Expires=-1
if isnumeric(request("id"))=false or request("id")="" then
	Response.Write "<html><meta http-equiv=refresh content=0;url=admin.asp></html>"
	Response.End 
end if

set cn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
CreateConn cn,dbtype

cn.BeginTrans
rs.Open "delete from main where id=" & request("id"),cn
rs.Open "delete from reply where articleid=" & request("id"),cn
cn.CommitTrans

Response.Redirect "admin.asp?page=" & request("page")

cn.Close
set rs=nothing
set cn=nothing
%>